home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / amos / ProcLib20.lha / Text / MESSAGEBOX.Amos / MESSAGEBOX.amosSourceCode
AMOS Source Code  |  1993-10-27  |  904b  |  40 lines
  1. Screen Open 0,320,200,32,0 : Flash Off : Curs Off : Cls 0
  2. M_DISP[$110,'A colourful message box!']
  3. Wait 170
  4. M_CLEAR
  5. Procedure M_DISP[CLR,MESSAGE$]
  6.    ' display a message while loading stuff
  7.    Flash Off : Curs Off : Cls 0 : Paper 0
  8.    ' set up variables 
  9.    WID=Len(MESSAGE$) : Y1=14*8-1 : Y2=15*8
  10.    XCH=20-WID/2 : X1=XCH*8-1 : X2=WID+XCH : X2=X2*8
  11.    ' now setup palette
  12.    For N=1 To 15
  13.       SH=CLR*N
  14.       Colour N,SH
  15.       Colour 30-N,SH
  16.    Next N
  17.    ' draw boxes 
  18.    Ink 1 : I=0 : C=29
  19.    For N=1 To 20
  20.       Inc I : If I=C Then I=1
  21.       Ink I
  22.       Dec X1 : Dec Y1 : Inc X2 : Inc Y2
  23.       Box X1,Y1 To X2,Y2
  24.    Next N
  25.    ' message
  26.    Locate XCH,14
  27.    For N=1 To WID
  28.       Inc I : If I=C Then I=1
  29.       Pen I
  30.       Print Mid$(MESSAGE$,N,1)+"";
  31.    Next N
  32.    ' and step thru it.. 
  33.    Shift Up 2,1,C-1,1
  34. End Proc
  35. Procedure M_CLEAR
  36.    ' clear message
  37.    Shift Off 
  38.    Fade 1 : Wait 15
  39.    Cls 
  40. End Proc